home *** CD-ROM | disk | FTP | other *** search
/ Know Your Baseball - The Greatest Player Resource / Know Your Baseball - Greatest Player.iso / Baseball / Director / SHARED.CST / 00006_Script_Find Commands from list < prev    next >
Text File  |  1998-09-21  |  2KB  |  87 lines
  1. -----                   scripts for menu control          --------
  2. global gClicked, gControls,gAVI,gClipOut,gButtonStatus2,gMr1,gMr2
  3.  
  4.  
  5. on Menu
  6.   sound close 2
  7.   set the timeoutscript = EMPTY
  8.   -- tests to see which sprite has been clicked on and what to do
  9.   repeat with x =   8  to 48
  10.     if rollover(x) then
  11.       
  12.       set gClicked = x
  13.       if X < gMr2 and X > gMr1 then set gButtonStatus2 = x
  14.       mDo(gControls) gClicked
  15.       set what = the result  
  16.     end if
  17.     
  18.     if what > EMPTY then exit repeat
  19.     
  20.   end repeat
  21.   
  22.   
  23.   if voidp(what) or what = EMPTY then
  24.     AVIcleanUP what
  25.     exit  
  26.   end if
  27.   
  28.   set t = (the number of chars in what)
  29.   repeat with a = 1 to 3
  30.     put char a+(t-3) of what into char a of test
  31.   end repeat
  32.   
  33.   if char 1 of what = 1 then 
  34.     cMarker what
  35.     exit
  36.   end if
  37.   
  38.   if test = "dat" then 
  39.     Assistant2 what
  40.     exit
  41.   end if
  42.   
  43.   
  44.   if test = "dir" then 
  45.     set oldDelimiter to the itemDelimiter
  46.     set the itemDelimiter = "."
  47.     set x to  item  1 of what
  48.     set the itemDelimiter to oldDelimiter
  49.     cMovie x -- drop the ",dir" extension to allow ".dxr" files
  50.     exit
  51.   end if
  52.   
  53.   
  54.   
  55.   if what > "" then 
  56.     cCommand what, x
  57.     exit
  58.   end if 
  59.   
  60.   
  61.   
  62. end
  63. --------------------------------------------------------------------
  64. on cMarker what
  65.   AVIcleanup what
  66.   go what
  67. end
  68.  
  69. on cMovie what
  70.   global gRegAll, gRegSkill
  71.   AVIcleanup what
  72.   CleanRoutine
  73.   set oldDelimiter to the itemDelimiter
  74.   set the itemDelimiter = "."
  75.   set xfile to  item 1 of what
  76.   set the itemDelimiter to oldDelimiter
  77.   
  78.  
  79.    go movie xfile -- goes to red flag movies
  80. end
  81.  
  82. on cCommand what
  83.   AVIcleanup what
  84.   do What 
  85. end
  86.  
  87.